Imports DTO
Imports DAO

Public Class LopHocBus
    Inherits AbstractBus
    Public Sub Them(ByVal lhDto As LopHocDto)
        Dim lhDao As New LopHocDao()
        lhDao.Them(lhDto)
    End Sub
    Public Sub Xoa(ByVal maLopHoc As String)
        'Kiem tra Business Rule neu co
        Dim lhDao As New LopHocDao()
        lhDao.Xoa(maLopHoc)
    End Sub
    Public Sub Sua(ByVal lhDto As LopHocDto)
        'Kiem tra Business Rule neu co
        Dim lhDao As New LopHocDao()
        lhDao.Sua(lhDto)
    End Sub
    'Tim Kiem
    Public Function TimKiem(ByVal maLH As String) As LopHocDto

        'Kiem tra Business Rule neu co
        Dim lhDto As LopHocDto

        Dim lhDao As New LopHocDao()
        lhDto = lhDao.TimKiem(maLH)
        Return lhDto

    End Function
    Public Function LayBang() As DataTable
        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim lhDao As New LopHocDao

        dt = lhDao.LayBang()
        Return dt
    End Function

    'Cap Nhat Bang
    Public Sub CapNhatBang(ByVal dt As DataTable)
        'Kiem tra Business Rule neu co
        Dim lhDao As New LopHocDao()
        lhDao.CapNhatBang(dt)
    End Sub


End Class
